home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / compak7 / dacpack7.exe / UserListpw.asp < prev   
Encoding:
Text File  |  1998-10-27  |  1.7 KB  |  78 lines
  1. <%@ Language=VBScript %>
  2. <HTML>
  3. <HEAD>
  4. <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  5. <title>DameWare Components ASP Test</title>
  6. </head>
  7.  
  8. <body>
  9.  
  10. <%
  11.  
  12. ' ************** UserList *****************
  13. Set UserList = Server.CreateObject("DameWare.UserListCtl.1")
  14.  
  15. If Request("Posted") <> "" Then
  16.  
  17.     If Request("txtNew") <> Request("txtNewconfirm") Then
  18.                 %>
  19.                 <script LANGUAGE="JavaScript">
  20.                     alert("Passwords do not match, try again.");
  21.                 </script>
  22.                 <%
  23.     Else
  24.  
  25.     ' perform password change
  26.     UserList.Machine = "\\metrysrv"
  27.     UserList.UserName = Request("txtUserID")
  28.     UserList.UserNewPassword = Request("txtNew")
  29.     UserList.UserChangePassword
  30.  
  31.     End If
  32.  
  33. End If
  34.  
  35. %>
  36.  
  37. <center>
  38. <br>
  39. <hr WIDTH="80%" COLOR="INDIGO">
  40. <font SIZE="6" FACE="Times New Roman" COLOR="INDIGO">UserList ASP Sample</font>
  41. <hr WIDTH="80%" COLOR="INDIGO">
  42. </center>
  43.  
  44. <Form Action="UserList.asp" Method="POST" id=form1 name=form1>
  45.  
  46. <TABLE Align=Center BORDER=0 WIDTH=600 BGColor=Gray Text=Indigo>
  47. <TD><B>User Account:</B></TD>
  48. <TD><Input Type=text Name="txtUserID" SIZE=50 Value=""></TD>
  49. </TR>
  50. <TR> 
  51. <TD><B>Old Password</B></TD>
  52. <TD><Input Type=password Name="txtOld" SIZE=50 Value=""></TD>
  53. </TR>
  54. <TR> 
  55. <TD><B>New Password</B></TD>
  56. <TD><Input Type=password Name="txtNew" SIZE=50 Value=""></TD>
  57. </TR>
  58. <TR> 
  59. <TD><B>New Password (confirm)</B></TD>
  60. <TD><Input Type=password Name="txtNewconfirm" SIZE=50 Value=""></TD>
  61. </TR>
  62. </table>
  63.  
  64. <CENTER><INPUT TYPE="Submit" value="Change Password" name="BtnChangePassword"></CENTER><BR>
  65.  
  66. <Input Type="Hidden" Name="Posted" Value="working">
  67.  
  68. </FORM>
  69.  
  70. <%
  71.  
  72. Set UserList = Nothing
  73.  
  74. %>
  75.  
  76. </body>
  77. </html>
  78.